%
\begingroup\makeatletter\ifx\SetFigFont\undefined
% extract first six characters in \fmtname
\def\x#1#2#3#4#5#6#7\relax{\def\x{#1#2#3#4#5#6}}%
\expandafter\x\fmtname xxxxxx\relax \def\y{splain}%
\ifx\x\y   % LaTeX or SliTeX?
\gdef\SetFigFont#1#2#3{%
  \ifnum #1<17\tiny\else \ifnum #1<20\small\else
  \ifnum #1<24\normalsize\else \ifnum #1<29\large\else
  \ifnum #1<34\Large\else \ifnum #1<41\LARGE\else
     \huge\fi\fi\fi\fi\fi\fi
  \csname #3\endcsname}%
\else
\gdef\SetFigFont#1#2#3{\begingroup
  \count@#1\relax \ifnum 25<\count@\count@25\fi
  \def\x{\endgroup\@setsize\SetFigFont{#2pt}}%
  \expandafter\x
    \csname \romannumeral\the\count@ pt\expandafter\endcsname
    \csname @\romannumeral\the\count@ pt\endcsname
  \csname #3\endcsname}%
\fi
\fi\endgroup
\setlength{\unitlength}{0.012500in}%
\begin{picture}(329,285)(40,535)
\thicklines
\put(130,595){\framebox(179,120){}}
\multiput(130,715)(0.00000,7.82609){12}{\line( 0, 1){  3.913}}
\multiput(130,715)(-7.82609,0.00000){12}{\line(-1, 0){  3.913}}
\multiput(309,715)(0.00000,8.00000){8}{\line( 0, 1){  4.000}}
\multiput(130,595)(-8.00000,0.00000){8}{\line(-1, 0){  4.000}}
\put(309,730){\vector( 1, 0){0}}
\put(130,730){\vector(-1, 0){0}}
\multiput(139,730)(8.95000,0.00000){19}{\makebox(0.4444,0.6667){\SetFigFont{10}{12}{rm}.}}
\put(115,595){\vector( 0,-1){0}}
\put(115,715){\vector( 0, 1){0}}
\multiput(115,706)(0.00000,-9.23077){12}{\makebox(0.4444,0.6667){\SetFigFont{10}{12}{rm}.}}
\multiput( 70,775)(0.00000,8.57143){4}{\line( 0, 1){  4.286}}
\multiput( 70,775)(-8.57143,0.00000){4}{\line(-1, 0){  4.286}}
\put( 70,775){\vector( 1, 0){299}}
\put( 70,775){\vector( 0,-1){240}}
\put( 44,779){\makebox(0,0)[lb]{\smash{\SetFigFont{9}{10.8}{rm}0}}}
\put( 70,809){\makebox(0,0)[lb]{\smash{\SetFigFont{9}{10.8}{rm}0}}}
\put(332,779){\makebox(0,0)[lb]{\smash{\SetFigFont{9}{10.8}{rm}COLS}}}
\put( 44,719){\makebox(0,0)[lb]{\smash{\SetFigFont{9}{10.8}{rm}begy}}}
\put(122,809){\makebox(0,0)[lb]{\smash{\SetFigFont{9}{10.8}{rm}begx}}}
\put( 89,651){\makebox(0,0)[lb]{\smash{\SetFigFont{9}{10.8}{rm}nlines}}}
\put(205,734){\makebox(0,0)[lb]{\smash{\SetFigFont{9}{10.8}{rm}ncols}}}
\put( 40,554){\makebox(0,0)[lb]{\smash{\SetFigFont{9}{10.8}{rm}LINES}}}
\put(140,650){\makebox(0,0)[lb]{\smash{\SetFigFont{10}{12.0}{rm}newwin(nlines, ncols, begy, begx)}}}
\end{picture}
